0 CLR:PRINTTAB(14);:PRINT"PLEASE WAIT"
1 FORI=1TO280:READA:POKE49151+I,A:NEXT
2 DIM Y(255)
3 FORI=0TO255:Y(I)=I:NEXT:Y(158)=61:Y(176)=62:Y(183)=63:Y(220)=0
4 Q3=262144:Q2=4096:Q1=64
5 Z1=65536:Z8=256
10 FORH=1TO63:READA$:FORI=1TOLEN(A$)STEP4
20 FORJ=0TO3:A(J)=ASC(MID$(A$,I+J,1))-35:A(J)=Y(A(J))
21 NEXT
30 C=A(0)*Q3+A(1)*Q2+A(2)*Q1+A(3)
40 A=INT(C/Z1):C=C-A*Z1
50 B=INT(C/Z8):C=C-B*Z8
60 POKE12992+U,A:POKE12992+U+1,B:POKE12992+U+2,C:U=U+3
70 NEXT:NEXT
100 SYS 49152
102 DATA 120,169,97,162,192,141,20,3,142,21,3,169,210,141,18
104 DATA 208,173,17,208,41,127,141,17,208,169,129,141,26,208,169
106 DATA 210,141,255,193,169,50,141,254,193,169,90,141,253,193,169
108 DATA 130,141,252,193,169,170,141,251,193,169,255,141,21,208,169
110 DATA 50,160,16,153,254,207,105,32,136,136,208,247,169,1,141
112 DATA 16,208,162,8,169,12,157,38,208,202,208,250,169,0,141
114 DATA 32,208,141,33,208,88,96,173,25,208,141,25,208,48,7
116 DATA 173,13,220,88,76,49,234,120,174,255,193,172,251,193,142
118 DATA 251,193,174,252,193,140,252,193,172,253,193,142,253,193,174
120 DATA 254,193,140,254,193,142,255,193,173,254,193,141,18,208,160
122 DATA 16,173,255,193,24,105,5,153,255,207,136,136,208,249,172
124 DATA 255,193,162,0,192,90,208,2,162,8,192,130,208,2,162
126 DATA 16,192,170,208,2,162,24,192,210,208,2,162,32,160,8
128 DATA 189,238,192,153,247,7,232,136,208,246,230,254,165,254,41
130 DATA 31,133,254,208,19,160,41,190,237,192,224,249,208,2,162
132 DATA 202,232,138,153,237,192,136,208,239,88,76,188,254,203,208
134 DATA 213,218,223,228,233,238,243,205,210,215,220,225,230,235,240
136 DATA 245,207,212,217,222,227,232,237,242,204,209,214,219,224,229
138 DATA 234,239,244,206,211,216,221,226,218,255
300 DATA "[255][255][255][255][255][255]'[255][255][255]1[255][255][255]1[255][255]*[[255][255])[[255][255]%_C[255]$[193][255][255][255][211][255][255]$[[255][255]&S[255][255]&_[255][255]&[218][255][255]*&C[255])$C[255])$C"
310 DATA "[255][211]$C&S$C/[255][255][255][255][255][255][255][255][255][255][255][255][255][255]$[255][255][255]&C[255][255]&[255][255]$[211][255][255]$Q[255][255][255]R+[255][255]B3[255][255]2C[255][255]A[255][255][255]_[255][255][255][218]"
320 DATA "[255][255][255][218]S[255]$S[[255]$C;[255]$C;[255]2C;[255]_[255];&[255][255];%[255][255]1%[255][255][255][255][255][255][255][255]C[255][255][255][255][255][255]?[255][255][255]?[255][255]$[[255][255]*S[255][255]"
330 DATA ".S[255][255]*E[255][255]*_[255][255]*C[255][255]*[255][255][255]2[255][255][255]2S[255][255]2[[255][255]1?[255];/)[255]Z_)[255][255][)[255][255][255])[255][255][255])[255][255][255]&[255][255][255]&CG"
340 DATA "[255][255]&[255][255][255]*[255][255][255]=[255][255][255][[255][255][255][[255][255]$[[255][255]$[[255][255]$[[255][255]$[211][255][255]&S[255][255]$[[255][255]$_[255]$T_[255]%1Y[255][255]*Y[255][255][255]I[255]"
350 DATA "[255][255])[255][255][255]'[255][255][255]'[255][255][255])[255][255][255]*C([255][255]&[255][255][255]&[255][255][255]*[255][255][255]?[255][255][255]_[255][255]$_[255][255]$?[255][255]$_[255][255]$][255][255]$[[255][255][255]_"
360 DATA "[255][255][255]A[255][255][255]1[255][255]*[218][255][255]'2[255][255][255]/[255][255][255];[255][255][255]3[255][255][255]C[255][255][255]C[255][255]$S[255][255]_[255][255]S[255][255][255]S[255][255][255]S[255][255]*[255][255][255]BC[255][255]"
370 DATA "JC[255][255]J[255][255][255]J+[255][255]QS[255][255]Q[255][255][255]2C[255][255]2S[255][255]/[[255][255]+[[255][255]2C[255][255];[255][255][255][[255][255]$G[255][255]$[255][255][255]%[255][255][255]*[255][255][255]%"
380 DATA "[255][255]/[255][255][255]1[255][255][255]/[255][255]*[[255][255],\C[255],[193][255][255]+Z[255][255]+K[255][255][255]S[255][255]$S[255][255]&[211][255][255]&*C[255])$C[255]/$C[255];$[255][255]S&[255]"
390 DATA "&C%[255])[255]%[255]/[255]&C'[255][255][255]'[255][255][255]%[255][255][255][255][255][255]&[255][255][255]&C[255][255]&C[255]&[211][255][255]'AC[255]'AC[255]'B[255][255]%B[255][255][255]?[255][255][255]_"
400 DATA "[255][255]$[211][255][255]$[218][255][255]$ZS[255]$C[[255]&[255];&[211][255];)[255][255];'[255][255]+[255][255][255]+[255][255][255]1[255]3[255][255];[255][255][255]?[255][255][255][[255][255]2C[255][255]:C[255][255]"
410 DATA ":C[255][255]:C[255][255]2_[255][255]2C[255][255]*C[255][255]*[255][255][255]*[255][255]/*S[255]B'[[255][255]_/[255][255];/[255][255][255]/[255][255][255]'[255][255][255]'[255][255][255]%[255][255][255]&CE"
420 DATA "[255][255]/[255][255][255]1[255][255][255]?[255][255]$S[255][255]&S[255][255]*S[255][255](S[255][255]&S[255][255]&_[255][255]&C[255][255]&C[255][255]DS[255]$TS[255][255]/S[255][255]&[[255][255]$[[255]"
430 DATA "[255][255];[255][255][255]3[255][255][255]3[255][255][255]3[255][255][255]?[255]%C[255])[255][255][255]*[255][255][255]1[255][255][255]?[255][255][255]_[255][255]$_[255][255]$_[255][255]$[[255][255]$[218][255][255]$[[255][255]$["
440 DATA "[255][255][255]_[255][255]%[211][255][255]&[211][255][255]'B[255][255][255];[255][255][255]S[255][255][255]C[255][255]$C[255][255]&[255][255][255]&C[255][255];[255]$C[255][255]$S[255][255]&C[255][255]*[255][255][255]B[255][255][255]"
450 DATA "[218][255][255][255]R/[255][255]BS[255][255]2[255][255][255]A[255][255][255]BC[255][255]B[[255][255];?[255][255];?[255][255]TC[255]$I[255][255]&'[255][255])%[255][255]/[255][255][255]+[255][255][255]/[255][255][255]1"
460 DATA "[255]1[255][255][255]1[255][255][255]?[255][255][255]?[255][255][255]A[255][255][255]A[255][255][255]A;[255][255]2S[255][255]2[255][255][255]2[255][255][255]2S[255][255]*[[255][255]&_[255][255][255][211][255][255][255][211][255][255]&O[255]"
470 DATA "[255]%/[255][255]%+[255][255][255]+[255][255][255];[255][255][255]?[255][255]C[255][[255][255]$[[255][255]&T[255][255]&[211][255][255]&C[255][255]&S[255][255]&C[255][255]&C[255][255]&[211][255][255]$[218][[255]$S"
480 DATA ";[255]$S/[255][255]S([255][255]S)[255][255]S[255][255][255]C[255][255][255]C[255][255][255]C[255][255][255]C[255][255][255]C[255][255][255]S[255][255];[255])[255][255][255]*[255][255][255]B[255][255][255][218][211][255][255][218]C[255][255]"
490 DATA "_[255][255][255]_[[255][255][218]_[255][255][218]I[255][255][211]&+[255]?$[[255]?[255]S[255]/[255][255][255]1[255][255][255])[255][255][255]1[255][255][255];[255][255][255];[255][255][255]S[255][255][255]C[255][255][255]C[255][255]1"
500 DATA "[255][255][[255][255][255][[255][255]$[[255][255]*_[255][255]2[218]C[255]2Q_[255]B[211][255][255]BVG[255]BC_[255]B[255];[255]2[255][255][255]&C[255][255]$C[255][255]&[255][255][255]'[255][255][255];[255][255]"
510 DATA "[255]3[255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255]$C[255]*[255][255][255]*[255][255][255]B[255][255]$[218][211][255]$[218]^C&ZC[255]&[218][[255]&[218]/3&Y&C$G$[255][255]+"
520 DATA "[255][255][255]/[255][255][255]'[255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][[255]$C[255][255]&S[255][255]2S[255][255]BS[255][255][218]R[255][255]"
530 DATA "[218]S[255][255][211]_[255][255][193]S[255][255][218][[255][255]B;[255][255][255]?[255][255][255]?[255][255][255]&[255][255][255]&C[255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255])"
540 DATA "[255][255]S[255][255][255][[255][255]$[[255][255]*U[255][255]2[211][255][255]2/[255][255]2A[255][255]2[211][255][255]2Y[255][255]2[211]C[255]*[218]C[255][255]2[255][255][255]&[255][255][255]&[255][255][255]$3[255][255]$C"
550 DATA "[255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255]&C[255])[255][255][255]*[255][255][255]2S[255][255][218];[255]$[218]S[255]&A[255][255]%A[255][255]$A[255][255][255]2[255][255][255]2_[255][255]2"
560 DATA "Y[255][255]&[211][255][255][255]A[255][255][255])[255][255][255])[255][255][255]*C[255][255]%[255][255][255]%[255][255][255]&3[255][255]$C[255][255][255][255]/[255][255]3[255][255])S[255][255]*C[255][255]2[255][255]&[218][255][255]1"
570 DATA "BC[255]+*S[255][255]*S[255][255]&S[255][255]&[[255][255]$_[255][255][255][211][255][255][255]B[255][255][255]*[255][255][255]&[255][255][255]&[255][255][255]&[255][255][255]&C[255][255]$S[255][255]$C[255][255][255][+"
580 DATA "[255][255]+[255][255][255][[255][255][255][[255][255]*[[255][255][218]S[255]&&S[255]'&[[255]'$[[255][255]$_[255][255][255]_[255][255][255]_[255][255][255]A[255][255][255]A[255][255][255]2[255][255][255]&C[255][255]$S"
590 DATA "[255][255][255]S[255][255][255]S[255][255][255]S[255][255][255];[255][255][255]/&C[255][255][255][255][255]/[255][255][255]1[255][255][255]1[255][255][255]?3[255][255]_C[255]$[218][255][255]$_[255][255]&_[255][255]%?[255][255]'A"
600 DATA "[255][255][255]B[255][255][255]BC[255][255]*S[255][255][255][[255][255][255];[255][255][255][[255][255][255]S[255][255][255]S[255][255]$S[255][255]$S[255][[255][255][255][255][255]$C[255][255]&S[255][255]*C[255][255]1[255][255][255]"
610 DATA "1[255][255][255]1[255][255][255]1[255][255][255]A[255][255][255]>[255][255][255]@[255][255][255]2[255][255][255]*[255][255][255]&C[255][255]&C[255][255]*C[255][255]2C[255][255]>[255][255][255]V[255][255][255]>[255][255][255]&C[255]1"
620 DATA "[255][255][255][255][255][255][255][255][255][255];[255][255][255];[255][255]$[[255][255]&C[255][255]&C[255][255]&C[255][255]*C[255][255]*S[255][255]2;[255][255]2+[255][255]*G[255][255]&C[255][255]&S[255][255]$S[255]"
630 DATA "[255]$3[255][255]&3[255][255]%3[255][255]%1[255][255]*;[255]&C[255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255]&[255][255][255]&[255][255][255]2[255][255][255]A[255][255][255][211][255][255]$[211][255][255]&[218]"
640 DATA "[255][255]*V[255][255]*\C[255]&[211]S[255][255][218]3[255][255]@C[255][255][193]C[255]$TC[255]&[255]C[255])[255]C[255]&[255][%'[255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255]"
650 DATA "[255][255][255][255][255][255][255][255][255]/[255][255][255][211][255][255]&_[255][255]*S[255][255]BS[255][255][218]S[255][255][218][[255][255][218][[255][255]2_[255][255]&_[255][255]2Y[255][255]_U[255][255]CS[255][255]S[[255])"
660 DATA "[255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255])[255][255][255]B[255][255][255][218][255][255]&[211][255][255]*_[255][255]2_[255][255]2_[255][255]*_[255]"
670 DATA "[255]&[211][255][255]$[211][255][255]BQ[255][255];<[255][255]/@C+[255][255][255][255][255][255])[255][255][255]2[255][255][255]A[255][255][255]_[255][255][255]_[255][255]$[211][255][255]$[211][255][255]&^[255][255]&\[255][255]*\"
680 DATA "[255][255]*[[255][255]'_[255][255][255]_[255][255][255]_[255][255][255]_[255][255]$_[255][255]$O[255][255]&/[255][255]))[255][255])*[255][255]C[255][255][255][255][255]&[255][255][255]*[255][255][255]*[255][255][255]*C[255][255]"
690 DATA "2C[255][255]2C[255][255]0C[255][255]1S[255][255]2[[255][255]2[[255][255]2C[255][255]2C[255][255]2C[255][255]2C[255][255]0C[255][255]0C[255][255]0S[255][255]/S[255][255];S[255][255];[[255]\"
700 DATA "[255][255][255][255][255][255]S[255][255]$S[255][255]$S[255][255]$_[255][255]&[211][255][255]2][255][255]2][255][255]6\[255][255]6\[255][255]&[[255][255]&[[255][255]&[[255][255]&?[255][255]&?[255][255]*/[255]"
710 DATA "[255])/[255][255])/[255][255]%/[255][255])/[255][255]11[255]$C[255][255][255][255][255]/[255][255][255]?[255][255][255]?[255][255][255]B[255][255]&[218]S[255]8[211];[255]@[211]+[255][255][211]+[255][255][211][255][255][255][218]"
720 DATA "[255][255][255][218][255][255][255]VC[255]$TC[255]$CS[255]&[255]S[255]&[255]S[255]&[255]S[255]%[255]S[255]%[255]C[255])[255][[255];[255][255][255][255][255]/[255][255][255]?[255][255][255]?[255][255]+[218]C[255],"
730 DATA "[211][[255])[211])[255][255]B$[255][255]BC[255][255]2C[255][255]2C[255][255]BS[255][255]?[[255][255][;[255][255]S/[255][255]C/[255][255]C;[255][255]C;[255]$[255]3[255]$[255]3[255]&[255]?[255]&"
740 DATA "[255][255][255][255][255]3S[255][255]4S[255][255]DS[255][255]F_[255][255][218][218][255][255]*\C[255]&[3[255]&[[255][255]$[[255][255]$[[255][255]&_[255][255]*[211][255][255]*2[255][255])*[255][255])&[255]"
750 DATA "[255]/&[255][255]+%[255][255]+)[255][255]+'[255][255]3*[255]&S[255]%[255][255]%*[255][255]&*[255][255][255][211][255][255][255]B[255][255][255]2[255][255][255]2[255][255][255]2C[255][255]A_[255][255][211];[255][255][211]"
760 DATA "[255][255][255][218][255][255][255]VC[255]$DS[255]$CS[255]&[255]S[255]&[255]S[255])[255]S[255])[255]C[255]'$C[255]'$S[255][[255][255][255][255][255][255]A[255][255][255][[255][255]$[[255][255]&S[255][255]"
770 DATA "&S[255][255]*W[255][255]*O[255][255]2[[255][255]BS[255][255]B[255][255][255]BC[255][255]BS[255][255]@S[255][255];[[255][255][;[255][255]S;[255]$C;[255]$C;[255]%[255]3[255]&[255]?[255]_"
780 DATA "[255][255][255][255][255][255][255][255][255][255]*[255][255][255]*[255][255][255]1[255][255][255]BC[255][255][193][[255]$_1[255]&[211][255][255]&_[255][255]&[[255][255]&[[255][255]%?[255][255])/[255][255]'/[255][255]/'[255]"
790 DATA "[255]+)[255][255];)[255][255]3)[255][255]3)[255][255]3*[255]*[255][255][255][255][255][255][255][255][255][255]$S[255][255]$S[255][255]&C[255][255]*[[255][255]2?[255][255]B)[255][255][218]&[255][255][218]C[255][255][211]"
800 DATA "3[255][255][211][255][255][255]J[255][255]$F[255][255]$&[255][255]&$[255][255]%$C[255])$C[255]'$C[255]'$C[255]'$S$C[255][255][255][255][255][255];[255][255][255]_[255][255][255]?[255][255]$[[255][255]"
810 DATA "$_[255][255]&_[255][255]*Y[255][255]2Y[255][255]2Y[255][255]2E[255][255]2C[255][255]0S[255][255];S[255][255];S[255][255]S3[255][255]S;[255]$C;[255]$C;[255]$C;[255]$C?$[255]"
820 DATA "[255][255][255][255][255][255]S[255][255]$S[255][255]$S[255][255]$[[255][255]&[C[255]&[C[255]&<[255][255]&P[255][255]&[211][255][255]&[211][255][255]&_[255][255]&[[255][255]&[[255][255]$[[255][255]$[[255]"
830 DATA "[255]&;[255][255]&;[255][255]&;[255][255]%;[255][255])/[255]F[255][255][255][255][255][255]/[255][255][255]?C[255][255]?C[255][255]A3[255][255][211]3[255][255][211]3[255][255]Y;[255][255]^[[255][255][211][[255][255][211]"
840 DATA "3[255][255][211]3[255][255][211]C[255]$YC[255]$M[255][255]&%[255][255]%%[255][255]'%[255][255]''[255][255]+'[255][255];*[255],+[255][255][255][255][255]+[255][255][255]?+[255][255]?+[255][255]_'[255]$"
850 DATA "[211]'[255]$[218]'[255]$[193]I[255]$[211][211][255]$[193]Q[255]$_)[255]$[([255]$_+C$Y+3$F3[255]$DC[255]&[255]C[255])[255]C[255]'[255]C[255]?[255]S[255];[255][%2"
860 DATA "[255][255][255][255]$D[255][255]$T[255][255]$SC[255]*CC[255]*SS[255]&[218][218][255]&_S[255]&ZS[255]&SC[255]&SC[255]&T[255][255]&\[255][255]*?[255][255])1[255][255]))[255][255]"
870 DATA "/&[255][255];$C[255]3[255]C[255]S[255]S[255]S[255][[255][255]3[255][255][255][255];C[255][255]?3[255][255]?+[255]$[+[255]$[218][218][255][255][211]/[255][255][218]/[255][255][193]_[255][255]_+[255][255]_+"
880 DATA "[255][255]_3[255][255][211]C[255]$Z[255][255]$FC[255]$DC[255]&[255]S[255])[255];[255]'[255]+[255]/[255]/[255]/[255]1[255][255]C[255][255][255][255])+[255][255]*'[255][255]*%[255][255]A%[255][255]B"
890 DATA "[218]C[255]2F[255][255]2V[255][255]2B[255][255]2%[255][255]2%[255][255]2'[255][255]2K[255][255]@S[255][255];[[255][255];;[255][255]S/[255]$C)[255]$[255]%[255]&[255]&[255]&[255]&C%-"
900 DATA "[255][255][255][255]$E[255][255]$T[255][255]$SC[255]*CC[255]*SS[255]&[S[255]&_S[255]&ZS[255]&SC[255]&SC[255]&T[255][255]&][255][255]*?[255][255])1[255][255]))[255][255]"
910 DATA "/&[255][255];$C[255]3[255]C[255]S[255]S[255]S[255][[255][255]S[255][255][255][255][255]C[255][255]$SC[255]$SC[255]&S3[255]*[3[255]*_3[255]*Y;[255]*^[[255]*Y[[255]*S"
920 DATA ";[255]*C3[255]*SC[255]*;C[255])0[255][255]))[255][255]/%[255][255];%[255][255]3%[255]$S&[255]$C&C%[255]S.&[255]O/%SS.&'U.&[255]O"